﻿Imports MySql.Data.MySqlClient
Public Class dUsuarios
    Private con As MySqlConnection
    Private comando As MySqlCommand
    Dim lector As MySqlDataReader
    Private lector2 As MySqlDataAdapter
    Private data As DataSet
    'llamar datos de la DB
    Public Function CargarMysql(ByVal Campo As String) As ArrayList
        Dim resultado As ArrayList
        resultado = New ArrayList
        con = Conexion.open()
        comando = New MySqlCommand("Select codigo_tipo_identificacion, numero_identificacion, primer_nombre, segundo_nombre, primer_apellido, segundo_apellido, fecha_nacimiento, sexo from usuarios where codigo_usuario='" & Campo & "'", con)
        lector = comando.ExecuteReader
        If lector.Read() = True Then
            resultado.Add(lector.GetString(0))
            resultado.Add(lector.GetString(1))
            resultado.Add(lector.GetString(2))
            resultado.Add(lector.GetString(3))
            resultado.Add(lector.GetString(4))
            resultado.Add(lector.GetString(5))
            resultado.Add(lector.GetString(6))
            resultado.Add(lector.GetString(7))
        End If
        Conexion.Close(con)
        lector.Close()
        Return resultado
    End Function
    'propiedades consultar ANAlistas
    Public Function ConsultarMysql(ByVal Campo As String) As DataSet
        Dim consultar As New dConsultar
        Return consultar.Consultar_General(Campo, "Usuarios")

        'Dim Resultado As ArrayList
        'Resultado = New ArrayList
        'con = Conexion.open()
        'comando = New MySqlCommand("Select codigo_analista as Codigo, nombre_analista as Analista, Telefono, Direccion, Email from analistas where codigo_analista='" & Campo & "' or nombre_analista like '" & "%" & Campo & "%" & "' and estado_analista='A'", con)
        'lector2 = New MySqlDataAdapter(comando)
        'data = New DataSet
        'lector2.Fill(data)
        'Conexion.Close(con)
        'Return data
    End Function
    'guardar la informacion
    Public Sub GuardarMysql(ByVal Codigo As String, ByVal tipo_identificacion As String, ByVal numero_identificacion As String, ByVal Primer_Nombre As String, ByVal Segundo_Nombre As String, ByVal Primer_Apellido As String, ByVal Segundo_Apellido As String, ByVal Fecha_Nacimiento As Date, ByVal Sexo As String)
        Dim Resultado As ArrayList
        ' Dim fecha As String
        Resultado = CargarMysql(Codigo)

        'Fecha_Nacimiento = Mid(Fecha_Nacimiento,4,

        'MsgBox(Format(Fecha_Nacimiento, "yyyy/MM/dd"))
        con = Conexion.open()
        If Resultado.Count <> 0 Then
            'realizamos la actualizacion
            comando = New MySqlCommand("UPDATE usuarios SET primer_nombre='" & Primer_Nombre & "', segundo_nombre='" & Segundo_Nombre & "', primer_apellido='" & Primer_Apellido & "', segundo_apellido='" & Segundo_Apellido & "', fecha_nacimiento='" & Format(Fecha_Nacimiento, "yyyy/MM/dd") & "', sexo='" & Sexo & "'" _
                                       & "where codigo_usuario='" & Codigo & "'", con)
            comando.ExecuteNonQuery()
        Else
            'realizamos la insercion
            comando = New MySqlCommand("insert into usuarios(codigo_usuario, codigo_tipo_identificacion, numero_identificacion, primer_nombre, segundo_nombre, primer_apellido, segundo_apellido, fecha_nacimiento, sexo) " _
                                       & "values('" & Codigo & "','" & tipo_identificacion & "','" & numero_identificacion & "','" & Primer_Nombre & "','" & Segundo_Nombre & "', '" & Primer_Apellido & "', '" & Segundo_Apellido & "', '" & Format(Fecha_Nacimiento, "yyyy/MM/dd") & "','" & Sexo & "')", con)
            comando.ExecuteNonQuery()
        End If
        Conexion.Close(con)
        'comando = New MySqlCommand("Inser  * from diagnosticos where codigo_diagnostico like '" & Campo & "%" & "'", con)
    End Sub
End Class
